home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / exitFrameScripts_37.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  567 b   |  21 lines
  1. property done
  2.  
  3. on exitFrame me
  4.   global gToolBarTextMan, gConMan
  5.   if not done then
  6.     sendAllSprites(#sendToolBarCoverAway)
  7.     sendAllSprites(#bringResourceButtonsForward)
  8.     nextDecision = getNextInteriorDecision(gConMan)
  9.     case nextDecision of
  10.       #staircase, #staircases:
  11.         whichText = "int_FlooringOut_StairsNext"
  12.       #fireplaces:
  13.         whichText = "int_FlooringOut_FireplacesNext"
  14.       #kitchenStyles:
  15.         whichText = "int_FlooringOut_KitchenStyles"
  16.     end case
  17.     setToolBarText(gToolBarTextMan, whichText)
  18.   end if
  19.   go(the frame)
  20. end
  21.